

package
  TagServer::Control;


#UML_MODELER_BEGIN_PERSONAL_VARS_Control

#UML_MODELER_END_PERSONAL_VARS_Control

use
  TagServer::iServer;
use
  TagClient::iView;
use
  TagServer::iModel;
use
  TagServer::Event;

use base
qw (TagServer::iServer);



= head1 CONTROL 

= cut 

= head1 PUBLIC ATTRIBUTES 

= pod 

= cut 

= head1 
PUBLIC METHODS 

= pod 

= head3 

	onEvt Parameters:
	evt: TagServer::Event:

	Return:


	Description:


= cut 

sub onEvt
{
  my ($self, $evt,
# TagServer::Event :
    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_onEvt
  warn "Sou o Control::onEvt($evt)\n";
#UML_MODELER_END_PERSONAL_CODE_onEvt
}

sub new
{
  my ($class, $evt) = @_;
  my $self =
  {
  evt = >$evt};
  bless $self, $class;
  return $self;
}



= cut

  = head1 METHODS FOR SUBCLASSING

  = cut 
= head1 PRIVATE METHODS 
= cut 

return 1;
